10 REM  *******************************
20 REM  ***                         ***
30 REM  ***     FONTVIEW PATCH      ***
40 REM  ***                         ***
50 REM  ***     BY JOE BUCKLEY      ***
60 REM  ***                         ***
70 REM  *******************************
80 :
100 DIM Z(256):DR=8
110 OPEN 15,DR,15:OPEN 2,DR,2,"#"
120 TR=18:SE=1:GOSUB 1000:REM 1581 USE 40,3
130 TR=Z(3):SE=Z(4):GOSUB 1000
140 FOR T=1 TO 2
150 TR=Z(0):SE=Z(1):GOSUB 1000
160 NEXT
170 Z(189)=255:Z(190)=22
180 GOSUB 2000
190 CLOSE 2:CLOSE 15:END
1000 PRINT#15,"U1"2;0;TR;SE
1010 FOR X=0 TO 255
1020 GET#2,A$:A$=A$+CHR$(0)
1030 Z(X)=ASC(A$)
1040 NEXT
1050 RETURN
2000 PRINT#15,"B-P:"2;0
2010 FOR X=0 TO 255
2020 PRINT#2,CHR$(Z(X));
2030 NEXT
2040 PRINT#15,"U2"2;0;TR;SE
2050 RETURN